home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / mail / 1st_101a.zip / $$ORDER.SCR < prev    next >
Text File  |  1992-09-28  |  970b  |  40 lines
  1. '       ┌─────────────────────────────────┐
  2. '       │ 1stReader order script          │
  3. '       │ Written by Mark Herring         │
  4. '       │ September 27, 1992              │
  5. '       └─────────────────────────────────┘
  6.  
  7. TIMEOUT 30
  8.  
  9. LOCKLINE 20 30
  10. COMMENT "@DATE@ @TIME@  Connected with Sparkware's Ordering System"
  11.  
  12. :TOP
  13. WAITFOR "<UPLOAD>"
  14. COMMENT "@DATE@ @TIME@  Uploading your order now..."
  15. UPLOAD "@API$(5)ORDER.ZIP"
  16. WAITFOR "<SUCCESS>|<ERROR>"
  17. IF FOUND=1 GOTO WAIT
  18. GOTO TOP
  19.  
  20. :WAIT
  21. COMMENT "@DATE@ @TIME@  Your upload was successful"
  22. WAITFOR "<APPROVED>|<DECLINED>"
  23. IF FOUND=1 GOTO DOWNLOAD
  24. GOTO EXIT
  25.  
  26. :DOWNLOAD
  27. WAITFOR "<DOWNLOAD>"
  28. COMMENT "@DATE@ @TIME@  Downloading your 1stReader keyfile"
  29. IF EXIST @API$(5)KEYFILE.ZIP KILL @API$(5)KEYFILE.ZIP
  30. DOWNLOAD "@API$(5)KEYFILE.ZIP"
  31. WAITFOR "<SUCCESS>|<ERROR>"
  32. IF FOUND=1 GOTO EXIT
  33. GOTO DOWNLOAD
  34.  
  35. :EXIT
  36. COMMENT "@DATE@ @TIME@  Disconnecting from system"
  37. WAITFOR "<HANGUP>" 10
  38. EXIT
  39.  
  40.